home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / FileLength.d < prev    next >
Encoding:
Text File  |  1980-01-24  |  243 b   |  14 lines
  1. OPT    NOSTD,NOHEAD,NOEXE,PPC
  2.  
  3. MODULE    'dos','dos/dos'
  4.  
  5. PROC FileLength(name:PTR TO CHAR)(LONG)
  6.     DEF    lock:BPTR,fib:FileInfoBlock,l=TRUE
  7.     IF lock:=Lock(name,ACCESS_READ)
  8.         IF Examine(lock,fib)
  9.             l:=fib.Size
  10.         ENDIF
  11.         UnLock(lock)
  12.     ENDIF
  13. ENDPROC l
  14.